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PASSES E SLI S ETT TTT Teer Terre I ISIS TITTLE TILITLITTTTLTTiLitiiit 


RET TTT Tee Tee TTI TIS III ITAL ITT TTT TTILiititit 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


wus SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
IN NCLU LUSION OF THE ABOVE gpd A, NOTICE. THIS SOFTWARE OR ANY OTHER 
i a ha yd oo tit NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


TRANSFERRED. 
THE ot pe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
SORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


DIGITAL ASSUMES NO RESPONSIBIL 
SOFTWARE ON EQUIPMENT WHICH IS 
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NOT SUPPLIED BY DIGITAL. 


neds 
CRO STRACE (TYPE, SUBTYPE, TEXT_LENGTH, TEXT_ADDR) = 
YBLISS32 f ! Only on VAX=11 
XIF EDTSS$TR_ACT 
ZTHEN ! Only if selected 
BEGIN 


CAL 
TRACE_STATUS; 


EXTERNAL ROUTINE 
EDTSSTR_WR : ADDRESSING_MODE (GENERAL); 


fine trace Literals 
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'¢ 
This file, TRACEMAC.REQ, holds the $$TRACE and S$$TRACE_READ macros for EDT. 


TRACELIT; De 
TRACE_STATUS = EDTSSTR_WR (TYPE, suBiyPe. TEXT_LENGTH, TEXT_ADDR); 


IF ( NOT .TRACE_STATUS) THEN SIGNAL_STOP (.TRACE_STAIUS); 


END 
2FI 


ge * 
SSTRACE READ (TYPE, SUBTYPE, BUFFER_LENGTH, BUFFER ADDR, TEXT_LEN) = 
XBLTSS32 C ' Only"on VAK=-11 
ZIF EDTS$STR_ACT ; 
ZTHEN ! Only if selected 


— 


TRACEMAC REQ; 1 16-SEP-1984 16:50:18.56 Page 2 


BEGIN 


LOCAL 
TRACE_STATUS; 


EXTERNAL ROUTINE 
EDTSSTR_RD : ADDRESSING_MODE (GENERAL); 


TRACELIT; ! Define trace literals 


EXTERNAL 
EDTS$L_TR_INFLG : ADDRESSING_MODE (GENERAL); 


IF ( NOT .EDTSS$L_TR_INFLG) 
THEN 


0 
ELSE 
BEGIN 
TRACE_STATUS = EDT$S$TR_RD (TYPE, SUBTYPE, BUFFER_LENGTH, BUFFER_ADDR, TEXT_LEN); 
IF ( NOT .TRACE_STATUS) THEN SIGNAL_STOP (.TRACE_STATUS); 


1 
END 
END 
ZELSE 
0 
xFI 


J 
SSTRACE 
BLT 


XIF EDTSS$TR_ACT 
XTHEN 
BEGIN 


EXTERNAL 
EDTSSL_TR_INFLG : ADDRESSING_MODE (GENERAL); 


IF .EDTS$L_TR_INFLG THEN %REMOVE (ACTION) 


END 
ZELSE 


ZF I 
3 8; 
REQUIRE *EDTSRC: TRACELIT.REQ'; ! Define macro TRACELIT 
: End of file TRACEMAC.REQ 


EADING (ACTION) = 
$$32 C ! Only on VAX-11 


! Only if selected 
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